Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/nrpas13.arc/RANK.PAS

Pascal/Delphi Source File | 1991-05-01 | 298b | 13 lines

PROCEDURE rank(n: integer; indx: gliarray; VAR irank: gliarray);
(* Programs using routine RANK must define type
TYPE
   gliarray = ARRAY [1..np] OF real;
in the main routine, with np >= n.   *)
VAR
   j: integer;
BEGIN
   FOR j := 1 TO n DO BEGIN
      irank[indx[j]] := j
   END
END;